home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 July / 1984-07.d64 / ultrafont loader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  1014 b   |  26 lines
  1. 100 ifa=1then300
  2. 120 print "[147]          now loading ultrafont+        "
  3. 130 printtab(15)"commands:"
  4. 135 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  5. 140 print"[221]f[146]:fix character"tab(19)"[221]l[146]:load           [221]"
  6. 150 print"[221]m[146]:mirror"tab(19)"[221]r[146]:rotate         [221]"
  7. 160 print"[221]s[146]:save"tab(19)"[221]v[146]:cursor velocity[221]"
  8. 165 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  9. 167 print"   t[146]:type mode. use run/stop to exit"
  10. 170 printtab(7)"crsr keys:move small cursor"
  11. 180 print"f1[146]:scroll down"tab(19)"f2[146]:scroll up"
  12. 190 print"f3[146]:scroll right"tab(19)"f4[146]:scroll left"
  13. 200 print"f5[146]:multicolor"tab(19)"f6[146]:normal"
  14. 210 print"f7[146]:memorize char"tab(19)"f8[146]:recall char"
  15. 220 print"1-4:color"tab(19)"shift[146] 1-4:setcolor"
  16. 230 print"home:top left"tab(19)"clr:erase char."
  17. 240 print"ctrl[146]-r:reverse character"
  18. 245 print"ctrl[146]-d:make data statements"
  19. 250 print"shift[146]-run/stop[146]:re-run ultrafont+"
  20. 252 print"ctrl[146]-x:exit ultrafont+"
  21. 253 print"ctrl[146]-_:copydown to rvs";
  22. 260 a=1:load"ultrafont.obj",8,1
  23. 300 a$="[147]sys49152"+chr$(13):poke198,len(a$)
  24. 310 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next
  25. 320 new
  26.